home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
qrep10b.zip
/
MDREP.DFM
/
MDREP.txt
< prev
Wrap
Text File
|
1996-04-10
|
17KB
|
782 lines
object MDForm: TMDForm
Left = 250
Top = 145
Width = 818
Height = 437
HorzScrollBar.Range = 1200
VertScrollBar.Range = 2000
AutoScroll = False
Caption = 'Master Detail demo Report'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
ShowHint = True
TextHeight = 16
object Title: TQRBand
Left = 0
Top = 0
Width = 1200
Height = 47
Align = alTop
BandType = rbTitle
Color = clWhite
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
ParentFont = False
Ruler = qrrInchesHV
object QRLabel15: TQRLabel
Left = 96
Top = 5
width = 216
height = 41
Caption = 'QuickReport'
AlignToBand = False
Font.Color = 8404992
Font.Height = -36
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Image1: TImage
Left = 9
Top = 5
Width = 79
Height = 37
Picture.Data = {<image000.bmp>}
Stretch = True
end
object QRLabel1: TQRLabel
Left = 329
Top = 23
width = 69
height = 17
Caption = 'for Delphi'
AlignToBand = False
Font.Color = 8404992
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel16: TQRLabel
Left = 561
Top = 23
width = 190
height = 17
Caption = 'Copyright (c) 1996 QSD AS'
AlignToBand = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
end
object CustomerHeading: TQRBand
Left = 0
Top = 47
Width = 1200
Height = 41
Align = alTop
BandType = rbDetail
Color = 8404992
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
LinkBand = OrderDetail
Ruler = qrrNone
object QRDBText1: TQRDBText
Left = 9
Top = 14
width = 257
height = 19
DataSource = CustomerDS
DataField = 'Company'
Font.Color = clWhite
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel3: TQRLabel
Left = 9
Top = 0
width = 55
height = 15
Caption = 'Customer'
AlignToBand = False
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel4: TQRLabel
Left = 273
Top = 0
width = 36
height = 15
Alignment = taRightJustify
Caption = 'Phone'
AlignToBand = False
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText3: TQRDBText
Left = 274
Top = 14
width = 139
height = 19
DataSource = CustomerDS
DataField = 'Phone'
Font.Color = clWhite
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRDBText4: TQRDBText
Left = 73
Top = 0
width = 29
height = 15
Alignment = taRightJustify
DataSource = CustomerDS
DataField = 'CustNo'
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel5: TQRLabel
Left = 416
Top = 0
width = 19
height = 15
Caption = 'Fax'
AlignToBand = False
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText5: TQRDBText
Left = 416
Top = 14
width = 134
height = 19
DataSource = CustomerDS
DataField = 'Fax'
Font.Color = clWhite
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
end
object CustomerFooter: TQRBand
Left = 0
Top = 161
Width = 1200
Height = 22
Align = alTop
BandType = rbGroupFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object QRDBCalc1: TQRDBCalc
Left = 524
Top = 1
width = 93
height = 19
Alignment = taRightJustify
DataSource = OrderDS
DataField = 'AmountPaid'
Operation = qrcSUM
PrintMask = '#,##0.00'
ResetBand = CustomerFooter
end
object QRLabel7: TQRLabel
Left = 353
Top = 1
width = 154
height = 16
Caption = 'Total sales this customer: '
AlignToBand = False
end
end
object PageFooter: TQRBand
Left = 0
Top = 230
Width = 1200
Height = 22
Align = alTop
BandType = rbPageFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object QRSysData1: TQRSysData
Left = 667
Top = 0
width = 91
height = 18
Alignment = taRightJustify
AlignToBand = True
Data = qrsPageNumber
Text = 'Page '
end
end
object Summary: TQRBand
Left = 0
Top = 183
Width = 1200
Height = 47
Hint = 'QuickReport'
Align = alTop
BandType = rbSummary
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object QRSysData2: TQRSysData
Left = 522
Top = 14
width = 225
height = 18
AlignToBand = False
Data = qrsDetailCount
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Text = 'Total number of orders : '
end
object QRDBCalc2: TQRDBCalc
Left = 366
Top = 14
width = 120
height = 19
Alignment = taRightJustify
DataSource = OrderDS
DataField = 'AmountPaid'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Operation = qrcSUM
PrintMask = ',0.00'
end
object QRLabel6: TQRLabel
Left = 123
Top = 14
width = 183
height = 18
Caption = 'Total sales all customers :'
AlignToBand = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object OrderDetail: TQRBand
Left = 0
Top = 88
Width = 1200
Height = 33
Align = alTop
BandType = rbSubDetail
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
LinkBand = ItemsDetail
Ruler = qrrNone
object QRDBText2: TQRDBText
Left = 69
Top = 0
width = 51
height = 19
Alignment = taRightJustify
DataSource = OrderDS
DataField = 'OrderNo'
end
object QRDBText7: TQRDBText
Left = 192
Top = 0
width = 74
height = 19
DataSource = OrderDS
DataField = 'SaleDate'
end
object QRLabel2: TQRLabel
Left = 9
Top = 0
width = 64
height = 18
Caption = 'Order no'
AlignToBand = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRLabel9: TQRLabel
Left = 137
Top = 0
width = 33
height = 18
Caption = 'Date'
AlignToBand = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRLabel10: TQRLabel
Left = 72
Top = 16
width = 31
height = 14
Caption = 'Partno'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel11: TQRLabel
Left = 128
Top = 16
width = 54
height = 14
Caption = 'Description'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel12: TQRLabel
Left = 428
Top = 16
width = 24
height = 14
Caption = 'Price'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel13: TQRLabel
Left = 488
Top = 16
width = 17
height = 14
Caption = 'Qty'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel14: TQRLabel
Left = 592
Top = 16
width = 23
height = 14
Caption = 'Total'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRShape1: TQRShape
Left = 184
Top = 24
width = 193
Height = 4
Shape = qrsHorLine
end
object QRShape2: TQRShape
Left = 392
Top = 24
width = 33
Height = 4
Shape = qrsHorLine
end
object QRShape3: TQRShape
Left = 468
Top = 24
width = 17
Height = 4
Shape = qrsHorLine
end
object QRShape4: TQRShape
Left = 528
Top = 24
width = 61
Height = 4
Shape = qrsHorLine
end
object QRShape5: TQRShape
Left = 53
Top = 24
width = 16
Height = 4
Shape = qrsHorLine
end
end
object ItemsDetail: TQRBand
Left = 0
Top = 121
Width = 1200
Height = 19
AfterPrint = ItemsDetailAfterPrint
Align = alTop
BandType = rbSubDetail
BeforePrint = ItemsDetailBeforePrint
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
LinkBand = OrderFooter
Ruler = qrrNone
object QRDBText8: TQRDBText
Left = 110
Top = 24
width = 239
height = 19
DataSource = PartsDS
DataField = 'Description'
end
object QRDBText6: TQRDBText
Left = 27
Top = 0
width = 75
height = 19
Alignment = taRightJustify
DataSource = ItemsDS
DataField = 'PartNo'
end
object QRDBText9: TQRDBText
Left = 361
Top = 0
width = 92
height = 19
Alignment = taRightJustify
DataSource = PartsDS
DataField = 'ListPrice'
end
object QRDBText10: TQRDBText
Left = 457
Top = 0
width = 47
height = 19
Alignment = taRightJustify
DataSource = ItemsDS
DataField = 'Qty'
end
object QRDBText11: TQRDBText
Left = 528
Top = 0
width = 89
height = 17
Alignment = taRightJustify
DataSource = ItemsDS
DataField = 'TotalAmount'
end
object QRDBText12: TQRDBText
Left = 128
Top = 0
width = 241
height = 17
DataSource = PartsDS
DataField = 'Description'
end
end
object OrderFooter: TQRBand
Left = 0
Top = 140
Width = 1200
Height = 21
Align = alTop
BandType = rbGroupFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
LinkBand = CustomerFooter
Ruler = qrrNone
object QRLabel17: TQRLabel
Left = 380
Top = 0
width = 125
height = 16
Caption = 'Total sales this order:'
AlignToBand = False
end
object QRShape6: TQRShape
Left = 128
Top = 8
width = 249
Height = 4
Shape = qrsHorLine
end
object QRDBText13: TQRDBText
Left = 524
Top = 0
width = 93
height = 17
Alignment = taRightJustify
DataSource = OrderDS
DataField = 'AmountPaid'
end
end
object MDRep: TQuickReport
DataSource = CustomerDS
ColumnMarginInches = 0
ColumnMarginMM = 0
Columns = 1
DisplayPrintDialog = False
LeftMarginInches = 0
LeftMarginMM = 0
Orientation = poPortrait
PageFrame.DrawTop = False
PageFrame.DrawBottom = False
PageFrame.DrawLeft = False
PageFrame.DrawRight = False
PaperLength = 0
PaperSize = qrpDefault
PaperWidth = 0
PrintOrder = qrColByCol
ReportTitle = 'QuickReport Master/detail demonstration'
RestartData = True
SQLCompatible = False
TitleBeforeHeader = False
Left = 4
Top = 224
end
object CustomerTable: TTable
Active = True
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'Company'
TableName = 'CUSTOMER.DB'
Left = 36
Top = 224
object CustomerTableCustNo: TFloatField
FieldName = 'CustNo'
end
object CustomerTableCompany: TStringField
FieldName = 'Company'
Size = 30
end
object CustomerTablePhone: TStringField
FieldName = 'Phone'
Size = 15
end
object CustomerTableFAX: TStringField
FieldName = 'FAX'
Size = 15
end
object CustomerTableContact: TStringField
FieldName = 'Contact'
end
end
object OrdersTable: TTable
Active = True
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'CustNo'
MasterFields = 'CustNo'
MasterSource = CustomerDS
TableName = 'ORDERS.DB'
Left = 44
Top = 260
object OrdersTableOrderNo: TFloatField
FieldName = 'OrderNo'
end
object OrdersTableSaleDate: TDateTimeField
FieldName = 'SaleDate'
end
object OrdersTableItemsTotal: TCurrencyField
FieldName = 'ItemsTotal'
Currency = True
end
object OrdersTableTaxRate: TFloatField
FieldName = 'TaxRate'
end
object OrdersTableFreight: TCurrencyField
FieldName = 'Freight'
Currency = True
end
object OrdersTableAmountPaid: TCurrencyField
FieldName = 'AmountPaid'
Currency = True
end
object OrdersTableCustNo: TFloatField
FieldName = 'CustNo'
Required = True
end
end
object CustomerDS: TDataSource
DataSet = CustomerTable
Left = 68
Top = 224
end
object OrderDS: TDataSource
DataSet = OrdersTable
Left = 76
Top = 260
end
object QRDetailLink1: TQRDetailLink
DataSource = OrderDS
DetailBand = OrderDetail
FooterBand = CustomerFooter
Master = MDRep
PrintBefore = False
Left = 12
Top = 260
end
object QRDetailLink2: TQRDetailLink
DataSource = ItemsDS
DetailBand = ItemsDetail
FooterBand = OrderFooter
Master = QRDetailLink1
PrintBefore = False
Left = 24
Top = 296
end
object ItemsTable: TTable
Active = True
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'OrderNo'
MasterFields = 'OrderNo'
MasterSource = OrderDS
TableName = 'ITEMS.DB'
Left = 56
Top = 296
object ItemsTableOrderNo: TFloatField
FieldName = 'OrderNo'
end
object ItemsTableItemNo: TFloatField
FieldName = 'ItemNo'
end
object ItemsTablePartNo: TFloatField
FieldName = 'PartNo'
end
object ItemsTableQty: TIntegerField
FieldName = 'Qty'
end
object ItemsTableDiscount: TFloatField
FieldName = 'Discount'
end
object ItemsTableTotal: TCurrencyField
Calculated = True
FieldName = 'Total'
Currency = True
end
object ItemsTableTotalAmount: TCurrencyField
Calculated = True
FieldName = 'TotalAmount'
Currency = True
end
end
object ItemsDS: TDataSource
DataSet = ItemsTable
Left = 88
Top = 296
end
object PartsTable: TTable
Active = True
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'PartNo'
MasterFields = 'PartNo'
MasterSource = ItemsDS
TableName = 'PARTS.DB'
Left = 64
Top = 332
object PartsTablePartNo: TFloatField
FieldName = 'PartNo'
end
object PartsTableVendorNo: TFloatField
FieldName = 'VendorNo'
end
object PartsTableDescription: TStringField
FieldName = 'Description'
Size = 30
end
object PartsTableOnHand: TFloatField
FieldName = 'OnHand'
end
object PartsTableOnOrder: TFloatField
FieldName = 'OnOrder'
end
object PartsTableCost: TCurrencyField
FieldName = 'Cost'
Currency = True
end
object PartsTableListPrice: TCurrencyField
FieldName = 'ListPrice'
Currency = True
end
end
object PartsDS: TDataSource
DataSet = PartsTable
Left = 96
Top = 332
end
end